home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multi-2a / form1.frm next >
Text File  |  1999-08-30  |  8KB  |  231 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Teco Multi-Search Beta"
  5.    ClientHeight    =   8400
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   11880
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   8400
  12.    ScaleWidth      =   11880
  13.    StartUpPosition =   2  'CenterScreen
  14.    Visible         =   0   'False
  15.    Begin VB.Frame Frame5 
  16.       Caption         =   "Lycos"
  17.       Height          =   3855
  18.       Left            =   6000
  19.       TabIndex        =   8
  20.       Top             =   4440
  21.       Width           =   5775
  22.       Begin SHDocVwCtl.WebBrowser WebBrowser4 
  23.          Height          =   3495
  24.          Left            =   120
  25.          TabIndex        =   11
  26.          Top             =   240
  27.          Width           =   5535
  28.          ExtentX         =   9763
  29.          ExtentY         =   6165
  30.          ViewMode        =   1
  31.          Offline         =   0
  32.          Silent          =   0
  33.          RegisterAsBrowser=   0
  34.          RegisterAsDropTarget=   1
  35.          AutoArrange     =   -1  'True
  36.          NoClientEdge    =   0   'False
  37.          AlignLeft       =   0   'False
  38.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  39.          Location        =   ""
  40.       End
  41.    End
  42.    Begin VB.Frame Frame4 
  43.       Caption         =   "Alta Vista"
  44.       Height          =   3855
  45.       Left            =   0
  46.       TabIndex        =   7
  47.       Top             =   4440
  48.       Width           =   5895
  49.       Begin SHDocVwCtl.WebBrowser WebBrowser3 
  50.          Height          =   3495
  51.          Left            =   120
  52.          TabIndex        =   10
  53.          Top             =   240
  54.          Width           =   5655
  55.          ExtentX         =   9975
  56.          ExtentY         =   6165
  57.          ViewMode        =   1
  58.          Offline         =   0
  59.          Silent          =   0
  60.          RegisterAsBrowser=   0
  61.          RegisterAsDropTarget=   1
  62.          AutoArrange     =   -1  'True
  63.          NoClientEdge    =   0   'False
  64.          AlignLeft       =   0   'False
  65.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  66.          Location        =   ""
  67.       End
  68.    End
  69.    Begin VB.Frame Frame3 
  70.       Caption         =   "Infoseek"
  71.       Height          =   3615
  72.       Left            =   6000
  73.       TabIndex        =   6
  74.       Top             =   720
  75.       Width           =   5775
  76.       Begin SHDocVwCtl.WebBrowser WebBrowser2 
  77.          Height          =   3255
  78.          Left            =   120
  79.          TabIndex        =   9
  80.          Top             =   240
  81.          Width           =   5535
  82.          ExtentX         =   9763
  83.          ExtentY         =   5741
  84.          ViewMode        =   1
  85.          Offline         =   0
  86.          Silent          =   0
  87.          RegisterAsBrowser=   0
  88.          RegisterAsDropTarget=   1
  89.          AutoArrange     =   -1  'True
  90.          NoClientEdge    =   0   'False
  91.          AlignLeft       =   0   'False
  92.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  93.          Location        =   ""
  94.       End
  95.    End
  96.    Begin VB.Frame Frame2 
  97.       Caption         =   "Yahoo!"
  98.       Height          =   3615
  99.       Left            =   0
  100.       TabIndex        =   4
  101.       Top             =   720
  102.       Width           =   5895
  103.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  104.          Height          =   3135
  105.          Left            =   120
  106.          TabIndex        =   5
  107.          Top             =   240
  108.          Width           =   5655
  109.          ExtentX         =   9975
  110.          ExtentY         =   5530
  111.          ViewMode        =   1
  112.          Offline         =   0
  113.          Silent          =   0
  114.          RegisterAsBrowser=   0
  115.          RegisterAsDropTarget=   1
  116.          AutoArrange     =   -1  'True
  117.          NoClientEdge    =   0   'False
  118.          AlignLeft       =   0   'False
  119.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  120.          Location        =   ""
  121.       End
  122.    End
  123.    Begin VB.Frame Frame1 
  124.       Caption         =   "Navigation"
  125.       Height          =   615
  126.       Left            =   0
  127.       TabIndex        =   0
  128.       Top             =   0
  129.       Width           =   8415
  130.       Begin VB.CommandButton Command1 
  131.          Caption         =   "&Search"
  132.          Default         =   -1  'True
  133.          Height          =   255
  134.          Left            =   7080
  135.          TabIndex        =   3
  136.          Top             =   240
  137.          Width           =   1215
  138.       End
  139.       Begin VB.TextBox txtsearch 
  140.          Height          =   285
  141.          Left            =   1080
  142.          TabIndex        =   2
  143.          Top             =   240
  144.          Width           =   5775
  145.       End
  146.       Begin VB.Label Label1 
  147.          Caption         =   "Search For:"
  148.          Height          =   255
  149.          Left            =   120
  150.          TabIndex        =   1
  151.          Top             =   240
  152.          Width           =   1815
  153.       End
  154.    End
  155.    Begin VB.Label Label2 
  156.       Alignment       =   2  'Center
  157.       Caption         =   "Try Adding Quotations Around Your Search Criteria To Get More Accurate Results"
  158.       Height          =   495
  159.       Left            =   8520
  160.       TabIndex        =   12
  161.       Top             =   120
  162.       Width           =   3255
  163.    End
  164. End
  165. Attribute VB_Name = "Form1"
  166. Attribute VB_GlobalNameSpace = False
  167. Attribute VB_Creatable = False
  168. Attribute VB_PredeclaredId = True
  169. Attribute VB_Exposed = False
  170. '               TECO'S MULTI-SEARCH
  171. '****************************************************
  172. ' A simple application using 4 Webbrowsers, 1 Command
  173. ' button and 1 Text Box.  With this application you can
  174. ' see how easy it is to generate a Multi-Seach Engine
  175. ' Program.  Just replace the proper variables
  176. ' and viola.  This program is 100% Working.
  177. '*****************************************************
  178. ' Created By:  TECO (aka T. Teed)
  179. ' Created In:  Visual Basic 5.0
  180. ' Created On:  August 29, 1999
  181. ' Contact Me:  teco@tecotown.com
  182. '              http://www.tecotown.com
  183. '******************************************************
  184. '       ⌐1999 Tyler Teed.  All Rights Reserved.
  185. '******************************************************
  186.  
  187. Private Sub Command1_Click()
  188. 'This is where we get the search criteria
  189. 'then we replace spaces with + signs
  190. Let thesearch = txtsearch.Text
  191. Dim i As intger
  192. Let i = 1
  193. While i <= Len(thesearch)
  194.  If Mid(thesearch, i, 1) = " " Then
  195.   Mid(thesearch, i, 1) = "+"
  196.  End If
  197.  i = i + 1
  198. Wend
  199. 'Send Information to Webbrowsers and load criteria
  200. WebBrowser1.Navigate "http://ink.yahoo.com/bin/query?p=" & thesearch & "&hc=0&hs=0"
  201. WebBrowser2.Navigate "http://infoseek.go.com/Titles?qt=" & thesearch & "&col=WW&sv=IS&lk=noframes&svx=home_searchbox"
  202. WebBrowser3.Navigate "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&q=" & thesearch
  203. WebBrowser4.Navigate "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" & thesearch
  204. End Sub
  205.  
  206.  
  207. Private Sub Form_Load()
  208. 'Initialize Each Browser's Search Engine
  209. WebBrowser1.Navigate "http://www.yahoo.com"
  210. WebBrowser2.Navigate "http://www.infoseek.com"
  211. WebBrowser3.Navigate "http://www.altavista.com"
  212. WebBrowser4.Navigate "http://www.lycos.com"
  213. End Sub
  214.  
  215. Private Sub Form_Unload(Cancel As Integer)
  216.  'Thank You and Goodbye Message / Contact Information
  217.  msg = "Thank You For Using Teco Multi-Search"
  218.  msg = msg & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Email:      teco@tecotown.com"
  219.  msg = msg & Chr(13) & Chr(10) & "Website:  www.tecotown.com"
  220.  sstyle = vbInformation
  221.  ttitle = "Teco Multi-Search"
  222.  MsgBox msg, sstyle, ttitle
  223.  End
  224. End Sub
  225.  
  226. Private Sub txtsearch_GotFocus()
  227. 'Highlight The Search Criteria for Easy Adjustments
  228. txtsearch.SelStart = 0
  229. txtsearch.SelLength = Len(txtsearch.Text)
  230. End Sub
  231.